﻿Public Class BewegingToevoegen
    Dim strTeken As String
    Private Sub RdbInkomend_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RdbInkomend.CheckedChanged
        Label1.Text = "+"
        strTeken = "+"
    End Sub

    Private Sub rdbUitgaand_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdbUitgaand.CheckedChanged
        Label1.Text = "-"
        strTeken = "-"
    End Sub

    Private Sub btnToevoegen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnToevoegen.Click
        Dim intGeselecteerd As Integer
        intGeselecteerd = cboProduct.SelectedValue

        Dim row As dtsHuidigeVoorraad.ProductenRow = DtsHuidigeVoorraad.Producten(intGeselecteerd - 1)

        If IsNumeric(txtBewegingsAantal.Text) Then

            frmBewegingen.DtsHuidigeVoorraad.Bewegingen.AddBewegingenRow(row, Integer.Parse(strTeken & txtBewegingsAantal.Text))

            frmHuidigevoorraad.DtvProducten.CurrentRow.Cells(2).Value += Integer.Parse(strTeken & txtBewegingsAantal.Text)

            If frmBewegingen.Visible = False Then
                frmBewegingen.Show()
                frmBewegingen.cboProductId.SelectedValue = cboProduct.SelectedValue
                frmBewegingen.dtvBewegingen.Refresh()
                Me.Close()
            Else
                frmBewegingen.dtvBewegingen.Refresh()
                frmBewegingen.cboProductId.SelectedValue = cboProduct.SelectedValue
                Me.Close()
            End If
        Else
            txtBewegingsAantal.Text = ""
            txtBewegingsAantal.Focus()
            MessageBox.Show("Gelieve een getal als beweging in te vullen")
        End If



    End Sub

    Private Sub BewegingToevoegen_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.ProductenTableAdapter.Fill(Me.DtsHuidigeVoorraad.Producten)

        If frmBewegingen.Visible = True Then
            cboProduct.SelectedIndex = frmBewegingen.cboProductId.SelectedIndex
        End If
    End Sub
End Class